﻿Imports System

Namespace System.Workflow.Activities.Rules
    Public Class RuleLiteralResult
        Inherits RuleExpressionResult
        ' Methods
        Public Sub New(ByVal literal As Object)
            Me.literal = literal
        End Sub


        ' Properties
        Public Overrides Property Value As Object
            Get
                Return Me.literal
            End Get
            Set(ByVal value As Object)
                Throw New InvalidOperationException(Messages.CannotWriteToExpression)
            End Set
        End Property


        ' Fields
        Private literal As Object
    End Class
End Namespace

